﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='文章移动'><p>"

dim id,classid,rs
id= int(request.QueryString("id"))  
classid= int(request.QueryString("classid"))

set rs=server.createobject("adodb.recordset")
rs.open "select classid from 74hu_article where id="&id,myconn,1,3
if rs.eof then 
	w "操作失败!没有此文章"
else
	rs("classid")=classid
	rs.update()
	w "移动文章成功"
end if
rs.close
set rs=nothing
%>
<br/>----------<br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[文章列表]</a><br/>
<a href="wzclass.asp?sid=<%=sid%>">[文章分类]</a><%Call Last%>